<script>on showProgress wdID,wdName,objNo,objName,objValueglobal pList,ifBackground,windowName,theProgress,theDialog,stackOpen,theSplashif objValue="idle" thenif wsGet(wdName,3,Visible) = TRUE thenget wsGet(wdName,3,VALUE)if it=0 thenset cursor to 4wsSet wdName,3,"Value",10wsSet theSplash,"2","TEXT","Checking Bit Depth..."else if it=10 thenset cursor to 4checkBitDepthwsSet theSplash,3,"Value",20wsSet theSplash,2,"Text","Locating files..."else if it=20 thenset cursor to 4wsSet theSplash,3,"Value",30wsSet theSplash,2,"Text","Locating files... OK"listDirelse if it=30 thenset cursor to 4wsSet theSplash,3,"Value",40wsSet theSplash,2,"Text","Creating menus..."createMenuelse if it=40 thenset cursor to 4wsSet theSplash,3,"Value",50wsSet theSplash,2,"Text","Adding menu items..."makeAboutelse if it=50 thenset cursor to 4wsSet theSplash,3,"Value",60wsSet theSplash,2,"Text","Checking sound..."checkSndelse if it=60 thenset cursor to 4wsSet theSplash,3,"Value",70get checkmark of menuitem "Sound" of menu "Aris™"wsSet theSplash,2,"Text","Checking sound..." && itcheckInfoelse if it=70 thenset cursor to 4wsSet theSplash,3,"Value",80wsSet theSplash,2,"Text","Creating Palette..."createPaletteelse if it=80 thenset cursor to 4wsSet theSplash,3,"Value",90wsSet theSplash,2,"Text","Getting first picture..."put line 1 of pList into windowNameelse if it=90 thenset cursor to 4wsSet theSplash,3,"Value",95wsSet theSplash,2,"Text","Getting first picture..." && windowNameelse if it=95 thenset cursor to 4wsSet theSplash,3,"Value",100else if it=100 thenset cursor to 4wsSend theSplash,0,"close"end ifend ifend ifend showProgresson getPreviews-- Movie Picker windowglobal myRefNumber,MooVfileName,MooVList,HideAndPlayif HideAndPlay = "" then put "Auto Close TRUE" into HideAndPlayif there is not a window "Movie Picker" thencheckColorput locateF() & "Data:" & discName() & ".Resources" into MooVfileNameif isFile(MooVfileName) ≠ TRUE thenput thisPath() & discName() & ".Resources" into MooVfileNameend ifif isFile(MooVfileName) and the optionKey = UP thenget windowScript("Movie Picker" & return & "i27_Name:" & HideAndPlay)put ResourceList(MooVfileName,"PICT","Name") into MooVListif MooVList ≠ "" and the optionKey = UP thenput resFilOpen(MooVfileName) into myRefNumberput empty into resList1repeat with i = 2 to 26set cursor to busyput "i" & i & "_Name:" & (line (i-1) of MooVList) & return after resList1end repeatset the properties of window "Movie Picker" to resList1else if MooVList = empty and the optionKey = UP thenput GetDir(locateF() & "Movies:","F","o=n") into MooVListrepeat with i = 2 to 26set cursor to busyput "i" & i & "_Name:sm Projector" & return & ¬"i" & (i+29) & "_Text:" & (line (i-1) of MooVList) & return & ¬"i" & (i+29) & "_Visible:TRUE" & return after resList1end repeatset the properties of window "Movie Picker" to resList1end ifelse if isFile(MooVfileName) and MoovList ≠ "" and the optionKey = DOWN thenget windowScript("Movie Picker" & return & "i27_Name:" & HideAndPlay)put GetDir(locateF() & "Movies:","F","o=n") into MooVListrepeat with i = 2 to 26set cursor to busyput "i" & i & "_Name:sm Projector" & return & ¬"i" & (i+29) & "_Text:" & (line (i-1) of MooVList) & return & ¬"i" & (i+29) & "_Visible:TRUE" & return after resList1end repeatset the properties of window "Movie Picker" to resList1else if the optionKey = DOWN thenif there is a window "Movie Picker" then close window "Movie Picker"send BuildListOfPICTs to backgroundelseget windowScript("Movie Picker" & return & "i27_Name:" & HideAndPlay)put GetDir(locateF() & "Movies:","F","o=n") into MooVListrepeat with i = 2 to 26set cursor to busyput "i" & i & "_Name:sm Projector" & return & ¬"i" & (i+29) & "_Text:" & (line (i-1) of MooVList) & return & ¬"i" & (i+29) & "_Visible:TRUE" & return after resList1end repeatset the properties of window "Movie Picker" to resList1end ifend ifend getPreviewson BuildListOfPICTsglobal targetfolder,destFileNameget FolderPath("Select a Folder that you wish to get Movie Previews from...")put it into targetfolderif targetfolder ≠ empty thenanswer file "Please locate the" && discName() & ".Resources file to save previews into..."put it into destFileNameif destFileName ≠ empty thenopen file destfilenameclose file destfilenameput changeFileType(destfilename,"rsrc","RSED") into smChangeput GetDir(targetfolder,"F","o=n") into DirListput ChangeStr(DirList,"[44]",",","all") into DirListrepeat with i = 1 to number of lines of DirListput "Copying preview from:" && (line i of DirList)put ResourceList(targetfolder & (line i of DirList),"PICT","ID") into PictNoif PictNo = "" thenPICTToClip (targetfolder & line i of DirList)ClipToPICT destFileName,"res",(line i of DirList),(i+999),"80,60"elseCopyRes targetfolder & (line i of DirList),destFileName,"PICT",PictNo,"I"put last item of the result into newNumput ResFilOpen(destfilename) into myRefNumget (line i of DirList)resRename "PICT",newNum,itResFilClose myRefNumend ifend repeatput emptyhide msganswer "Movie Previews copied successfully."&return&return&"To use the Movie Picker with these resources, keep them in the same folder as this stack or in the “DATA” folder."else exit BuildListOfPICTselse exit BuildListOfPICTsend BuildListOfPICTson BuildListOfICNsglobal targetfolder,destFileNameget FolderPath("Select a Folder to get icons from..."&return&"(The 24-Bit Folder looks best.)")put it into targetfolderif targetfolder ≠ empty thenask file "Save icons into..." with discName() & ".Resources"put it into destFileNameif destFileName ≠ empty thenopen file destfilenameput GetDir(targetfolder,"F","o=n") into DirListput ChangeStr(DirList,"[44]",",","all") into DirListrepeat with i = 1 to number of lines of DirListput "Copying color icon from:" && (line i of DirList)CopyRes targetfolder & (line i of DirList),destFileName,"ICN#","-16455","I"put last item of the result into newNumput ResFilOpen(destfilename) into myRefNumget (line i of DirList)resRename "ICN#",newNum,itCopyRes targetfolder & (line i of DirList),destFileName,"icl8","-16455","I"put last item of the result into newNumget (line i of DirList)resRename "icl8",newNum,itResFilClose myRefNumend repeatclose file destfilenameput changeFileType(destfilename,"rsrc","RSED") into smChangeput emptyhide msganswer "Color icons copied successfully."&return&return&"To use the Picture Picker with these resources, keep them in the same folder as this stack or in the “DATA” folder."else exit BuildListOfICNselse exit BuildListOfICNsend BuildListOfICNson findPICTname xglobal hitPath, startChar, howFarDown, aFoundLine, lineNo, searchMeput locateF() & "data:aris.data" into fileNameopen file fileNameread from file fileName until "≈"close file fileNamerepeat with i = 1 to the number of lines in itput word 1 of line i of it into item i of xTractorend repeatput item howFarDown of aFoundLine into lineNoget line lineNo of searchMerepeat with i = 1 to the number of items in xTractorif it contains (item i of xTractor) thenput line lineNo - i + 1 to lineNo - i + 5 of searchMe into hitPathexit repeatend ifend repeatend findPICTname</script>
